www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Admin_AdminGroup.asp
<html>
<head>
<META content=ywnt,云网互动影视管理系统 name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>云网互动影视6.0--管理员组</title>
<LINK href="css/css.css" type=text/css rel=stylesheet>
</head>
<BODY leftMargin=0 topMargin=0 scroll=yes MARGINHEIGHT="0" MARGINWIDTH="0">
<!--#include file="../Conn.asp" -->
<!--#include file="YWNT_TMS_inc/YWNT_TMS_Function.asp" -->
<script language="javascript">
function CheckAll(v)
{
var i;
for (i=0;i<document.form.elements.length;i++)
{
var e = document.form.elements[i];
e.checked = v;
}
}
</script>
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net
'郑重声明:
' 1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' 3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Call CheckLogin("Admin")
sub EditSave()
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_AdminGroup where ID="&Request.Form("ID")
Rs.open sql,Conn,1,3
RS("GroupName")=Request.Form("GroupName")
RS("Groupbox")=Request.Form("Groupbox")
RS("GroupNote")=Request.Form("GroupNote")
Rs.Update
Rs.Close
Set Rs = Nothing
Call AddLog("修改管理员组"&Request.Form("GroupName"),1)
call Admin_ShowErr("<li>管理员组改成功</li>","Admin_AdminGroup.asp",1)
end sub
sub AddSave()
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_AdminGroup"
Rs.open sql,Conn,1,3
Rs.addnew
RS("GroupName")=Request.Form("GroupName")
RS("Groupbox")=Request.Form("Groupbox")
RS("GroupNote")=Request.Form("GroupNote")
Rs.Update
Rs.Close
Set Rs = Nothing
Call AddLog("添加管理员组"&Request.Form("GroupName"),1)
call Admin_ShowErr("<li>管理员组添加成功</li>","Admin_AdminGroup.asp",1)
end sub
sub Del()
conn.execute "delete from YWNT_TMS_AdminGroup WHERE ID="&Request("ID")
Call AddLog("删除管理员组",1)
call Admin_ShowErr("<li>管理员组删除成功！</li>","Admin_AdminGroup.asp",1)
end sub %>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tbody>
<tr>
<td align="center" class=xingmu>管理员组管理</td>
</tr>
<tr>
<td class="hback"><A href="Admin_AdminGroup.asp">管理员组管理首页</a> | <A href="Admin_AdminGroup.asp?Action=Add">添加管理员</a></td>
</tr>
</tbody>
</table>
<%Action=Trim(request.QueryString("Action"))
Select Case Action
Case "Add"
call Add()
Case "AddSave"
call AddSave()
Case "Edit"
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_AdminGroup where ID="&Request.QueryString("ID")
Rs.open sql,Conn,1,1
YWNT_TMS_ID=RS("ID")
YWNT_TMS_GroupName=RS("GroupName")
YWNT_TMS_Groupbox=Replace(RS("Groupbox")," ","")
YWNT_TMS_GroupNote=RS("GroupNote")
RS.close
set RS=nothing
call Edit()
Case "EditSave"
call EditSave()
Case "Del"
call Del()
Case else
call List()
End Select
sub List()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tbody>
<tr>
<td width="5%" align="center" class=xingmu>ID</td>
<td align="center" class=xingmu>管理员组名称</td>
<td width="10%" align="center" class=xingmu>操作</td>
</tr>
<%Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select ID,GroupName from YWNT_TMS_AdminGroup Order by ID desc"
Rs.open sql,Conn,1,1
do while not Rs.eof%>
<tr>
<td height=32 align="center" class="hback"><%=Rs("ID")%></td>
<td height=32 class="hback"><%=Rs("GroupName")%></td>
<td align="center" class="hback"><A href="Admin_AdminGroup.asp?Action=Edit&ID=<%=Rs("ID")%>">修改</A>｜<A onClick="{if(confirm('确定要删除吗?\n如果此管理员下有子管理员\n此管理员下的隶属管理员将重新指定父级管理员!!')){return true;}return false;}" href="Admin_AdminGroup.asp?Action=Del&ID=<%=Rs("ID")%>">删除</A></td>
</tr>
<%Rs.movenext
loop
Rs.close
Set Rs=nothing%>
</tbody>
</table>
<%end sub
sub Add()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tbody>
<tr>
<td colspan="2" align="center" class=xingmu>添加管理员组</td>
</tr>
<form action="Admin_AdminGroup.asp?Action=AddSave" method="post" name="form" id="form">
<tr>
<td width="21%" height=32 align="right" class="hback">管理员组名称：</td>
<td height=15 class="hback"><input name="GroupName" type="text" id="GroupName" size="40">
<input type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(document.form.chkall.checked);">
选择全部权限</td>
</tr>
<tr>
<td height=32 align="right" class="hback">系统设置：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="System">
系统设置
<input type="checkbox" name="Groupbox" value="Admin">
管理员设置
<input type="checkbox" name="Groupbox" value="Notice">
公告管理
<input type="checkbox" name="Groupbox" value="Data">
数据库管理
<input type="checkbox" name="Groupbox" value="Ip">
IP策略
<input type="checkbox" name="Groupbox" value="Log">
日志管理
<input type="checkbox" name="Groupbox" value="Space">
空间管理
<input type="checkbox" name="Groupbox" value="UpDate">
在线升级
</td>
</tr>
<tr>
<td height=32 align="right" class="hback">站点发布：</td>
<td height=16 class="hback"><input name="Groupbox" type="checkbox" id="Groupbox" value="Htmlindex">
发布首页
<input name="Groupbox" type="checkbox" value="Htmltype">
发布栏目
<input type="checkbox" name="Groupbox" value="Htmlmovie">
发布影片
<input type="checkbox" name="Groupbox" value="Htmlfeature">
发布专题
<input type="checkbox" name="Groupbox" value="HtmlAllMovie">
发布全部影片
<input type="checkbox" name="Groupbox" value="HtmlFreeMovi">
发布免费试看</td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片管理：</td>
<td height=16 class="hback"><input name="Groupbox" type="checkbox" id="Groupbox" value="Sever">
服务器管理
<input type="checkbox" name="Groupbox" value="Type">
栏目管理
<input type="checkbox" name="Groupbox" value="Region">
地区管理
<input type="checkbox" name="Groupbox" value="Movie">
影片管理
<input type="checkbox" name="Groupbox" value="Recycling">
影片回收站
<input type="checkbox" name="Groupbox" value="Slide">
幻灯设置
<input type="checkbox" name="Groupbox" value="Sysplay">
播放设置</td>
</tr>
<tr>
<td height=32 align="right" class="hback">专题管理：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="FeatureType">
专题栏目
<input type="checkbox" name="Groupbox" value="FeatureMovie">
专题电影</td>
</tr>
<tr>
<td height=32 align="right" class="hback">直播管理：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="LiveType">
栏目管理
<input type="checkbox" name="Groupbox" value="Live">
直播管理</td>
</tr>
<tr>
<td height=32 align="right" class="hback">模版管理：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="Style">
风格管理
<input type="checkbox" name="Groupbox" value="Template">
模版管理
<input type="checkbox" name="Groupbox" value="Labeling">
自由标签 </td>
</tr>
<tr>
<td height=32 align="right" class="hback">会员管理：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="UsersGroup">
会员组管理
<input type="checkbox" name="Groupbox" value="Users">
会员管理
<input type="checkbox" name="Groupbox" value="UsersMsg">
会员消息
<input type="checkbox" name="Groupbox" value="UsersEmail">
会员邮件通知
<input type="checkbox" name="Groupbox" value="Wcafes">
网吧管理
<input type="checkbox" name="Groupbox" value="UsersOnline">
在线会员
<input type="checkbox" name="Groupbox" value="UsersMovieLog">
点播记录
<input type="checkbox" name="Groupbox" value="UsersErrors">
会员报错
<input type="checkbox" name="Groupbox" value="UsersComments">
会员评论
<input type="checkbox" name="Groupbox" value="UsersDemandMovie">
会员求片
<input type="checkbox" name="Groupbox" value="UsersCollection">
会员收藏
<input type="checkbox" name="Groupbox" value="UsersHelp">
帮助管理
<input type="checkbox" name="Groupbox" value="UsersRegNotice">
注册协议
<input type="checkbox" name="Groupbox" value="UsersSystem">
会员设置</td>
</tr>
<tr>
<td height=32 align="right" class="hback">其他管理：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="Collect">
电影采集管理
<input type="checkbox" name="Groupbox" value="Scanning">
电影扫描管理
<input type="checkbox" name="Groupbox" value="JsSub">
JS调用管理
<input type="checkbox" name="Groupbox" value="Vote">
投票管理
<input type="checkbox" name="Groupbox" value="Ad">
广告管理
<input type="checkbox" name="Groupbox" value="LinkSystem">
友情链接管理</td>
</tr>
<tr>
<td height=32 align="right" class="hback">管理员组说明：</td>
<td height=16 class="hback"><textarea name="GroupNote" cols="50" rows="5"></textarea></td>
</tr>
<tr>
<td height=32 colspan="2" align="center" class="hback"><input type="submit" name="Submit" value="添 加"></td>
</tr>
</form>
</tbody>
</table>
<%end sub
sub Edit()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tbody>
<tr>
<td colspan="2" align="center" class=xingmu>修改管理员组</td>
</tr>
<form action="Admin_AdminGroup.asp?Action=EditSave" method="post" name="form">
<tr>
<td width="21%" height=32 align="right" class="hback">管理员组名称：</td>
<td height=15 class="hback"><input name="GroupName" type="text" id="GroupName" value="<%=YWNT_TMS_GroupName%>" size="40">
<input type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(document.form.chkall.checked);">
选择全部权限</td>
</tr>
<tr>
<td height=32 align="right" class="hback">系统设置：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="System" <%call AdminGroupBox(YWNT_TMS_Groupbox,"System")%>>
系统设置
<input type="checkbox" name="Groupbox" value="Admin" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Admin")%>>
管理员设置
<input type="checkbox" name="Groupbox" value="Notice" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Notice")%>>
公告管理
<input type="checkbox" name="Groupbox" value="Data" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Data")%>>
数据库管理
<input type="checkbox" name="Groupbox" value="Ip" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Ip")%>>
IP策略
<input type="checkbox" name="Groupbox" value="Log" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Log")%>>
日志管理
<input type="checkbox" name="Groupbox" value="Space" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Space")%>>
空间管理
<input type="checkbox" name="Groupbox" value="UpDate" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UpDate")%>>
在线升级
</td>
</tr>
<tr>
<td height=32 align="right" class="hback">站点发布：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="Htmlindex" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Htmlindex")%>>
发布首页
<input type="checkbox" name="Groupbox" value="Htmltype" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Htmltype")%>>
发布栏目
<input type="checkbox" name="Groupbox" value="Htmlmovie" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Htmlmovie")%>>
发布影片
<input type="checkbox" name="Groupbox" value="Htmlfeature" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Htmlfeature")%>>
发布专题
<input type="checkbox" name="Groupbox" value="HtmlAllMovie" <%call AdminGroupBox(YWNT_TMS_Groupbox,"HtmlAllMovie")%>>
发布全部影片
<input type="checkbox" name="Groupbox" value="HtmlFreeMovi" <%call AdminGroupBox(YWNT_TMS_Groupbox,"HtmlFreeMovi")%>>
发布免费试看</td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片管理：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="Sever" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Sever")%>>
服务器管理
<input type="checkbox" name="Groupbox" value="Type" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Type")%>>
栏目管理
<input type="checkbox" name="Groupbox" value="Region" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Region")%>>
地区管理
<input type="checkbox" name="Groupbox" value="Movie" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Movie")%>>
影片管理
<input type="checkbox" name="Groupbox" value="Recycling" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Recycling")%>>
影片回收站
<input type="checkbox" name="Groupbox" value="Slide" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Slide")%>>
幻灯设置
<input type="checkbox" name="Groupbox" value="Sysplay" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Sysplay")%>>
播放设置</td>
</tr>
<tr>
<td height=32 align="right" class="hback">专题管理：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="FeatureType" <%call AdminGroupBox(YWNT_TMS_Groupbox,"FeatureType")%>>
专题栏目
<input type="checkbox" name="Groupbox" value="FeatureMovie" <%call AdminGroupBox(YWNT_TMS_Groupbox,"FeatureMovie")%>>
专题电影</td>
</tr>
<tr>
<td height=32 align="right" class="hback">直播管理：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="LiveType" <%call AdminGroupBox(YWNT_TMS_Groupbox,"LiveType")%>>
栏目管理
<input type="checkbox" name="Groupbox" value="Live" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Live")%>>
直播管理</td>
</tr>
<tr>
<td height=32 align="right" class="hback">模版管理：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="Style" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Style")%>>
风格管理
<input type="checkbox" name="Groupbox" value="Template" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Template")%>>
模版管理
<input type="checkbox" name="Groupbox" value="Labeling" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Labeling")%>>
自由标签 </td>
</tr>
<tr>
<td height=32 align="right" class="hback">会员管理：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="UsersGroup" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersGroup")%>>
会员组管理
<input type="checkbox" name="Groupbox" value="Users" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Users")%>>
会员管理
<input type="checkbox" name="Groupbox" value="UsersMsg" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersMsg")%>>
会员消息
<input type="checkbox" name="Groupbox" value="UsersEmail" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersEmail")%>>
会员邮件通知
<input type="checkbox" name="Groupbox" value="Wcafes" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Wcafes")%>>
网吧管理
<input type="checkbox" name="Groupbox" value="UsersOnline" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersOnline")%>>
在线会员
<input type="checkbox" name="Groupbox" value="UsersMovieLog" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersMovieLog")%>>
点播记录
<input type="checkbox" name="Groupbox" value="UsersErrors" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersErrors")%>>
会员报错
<input type="checkbox" name="Groupbox" value="UsersComments" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersComments")%>>
会员评论
<input type="checkbox" name="Groupbox" value="UsersDemandMovie" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersDemandMovie")%>>
会员求片
<input type="checkbox" name="Groupbox" value="UsersCollection" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersCollection")%>>
会员收藏
<input type="checkbox" name="Groupbox" value="UsersHelp" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersHelp")%>>
帮助管理
<input type="checkbox" name="Groupbox" value="UsersRegNotice" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersRegNotice")%>>
注册协议
<input type="checkbox" name="Groupbox" value="UsersSystem" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersSystem")%>>
会员设置</td>
</tr>
<tr>
<td height=32 align="right" class="hback">其他管理：</td>
<td height=16 class="hback"><input type="checkbox" name="Groupbox" value="Collect" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Collect")%>>
电影采集管理
<input type="checkbox" name="Groupbox" value="Scanning" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Scanning")%>>
电影扫描管理
<input type="checkbox" name="Groupbox" value="JsSub" <%call AdminGroupBox(YWNT_TMS_Groupbox,"JsSub")%>>
JS调用管理
<input type="checkbox" name="Groupbox" value="Vote" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Vote")%>>
投票管理
<input type="checkbox" name="Groupbox" value="Ad" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Ad")%>>
广告管理
<input type="checkbox" name="Groupbox" value="LinkSystem" <%call AdminGroupBox(YWNT_TMS_Groupbox,"LinkSystem")%>>
友情链接管理</td>
</tr>
<tr>
<td height=32 align="right" class="hback">管理员组说明：</td>
<td height=16 class="hback"><textarea name="GroupNote" cols="50" rows="5"><%=YWNT_TMS_GroupNote%></textarea></td>
</tr>
<tr>
<td height=32 colspan="2" align="center" class="hback"><input name="ID" type="hidden" value="<%=YWNT_TMS_ID%>"><input type="submit" name="Submit" value="修 改"></td>
</tr>
</form>
</tbody>
</table>
<%end sub
call connclose()%>
</BODY></HTML>